Nuprl Lemma : ecl-1-2-compat 0,22

i:Id, ds:x:Id fp Type, da:k:Knd fp Type, A:ecl(ds;da), upd:update-spec(ds;da), TT:Type.
update-spec-decl(upd;ds)
 T = ecl-trans-type(ecl-trans(A))
 "ecl"  dom(ds)
 ecl-machine1{ecl:ut2}
 ecl-machine1(idsdaA) ||
 eecl-machine2(i;ds;da;"ecl";T;ecl-trans-ks(ecl-trans(A));ecl-trans-a(ecl-trans(A));upd
latex


Definitionsx:AB(x), Id, P  Q, ecl-trans-type(A), "$x", ecl-machine1{$ecl:ut2}(idsdaA), ecl-machine2(i;ds;da;x;T;ks;a;upd), ecl-trans-ks(v), ecl-trans-a(v), let a,b,c,d,e,f,g = u in v(a;b;c;d;e;f;g), R-state-var-init(i;ds;da;x;T;v;ks;tr), t  T, 1of(t), Prop, xt(x), A, A || B, R-state-var(i;ds;da;x;T;ks;tr), if b t else f fi, P & Q, Top, A & B, SQType(T), {T}, DeclaredType(ds;x), true, Y, Rplus?(x1), Rplus-left(x1), Rplus-right(x1), Rnone?(x1), True, R-loc(R), Rds(R), Rda(R), p = q, R-base-domain(R), R-frame-compat(A;B), R-interface-compat(A;B), p  q, i=j, 2of(t), Reffect?(x1), Rframe?(x1), Rframe-x(x1), Reffect-x(x1), Reffect-knd(x1), Rframe-L(x1), Raframe?(x1), Raframe-k(x1), Raframe-L(x1), Rrframe?(x1), Rrframe-x(x1), Reffect-ds(x1), Rrframe-L(x1), Rsends?(x1), Rsframe?(x1), Rsframe-lnk(x1), Rsends-l(x1), Rsframe-tag(x1), Rsends-g(x1), Rsends-knd(x1), Rsframe-L(x1), Rbframe?(x1), Rbframe-k(x1), Rbframe-L(x1), Rsends-ds(x1), Rpre?(x1), Rpre-ds(x1), Rpre-a(x1), Rsends-dt(x1), Reffect-T(x1), Rsends-T(x1), false, State(ds), f(x)?z, x,yt(x;y), P  Q, P  Q, P  Q, ecl-trans-tuple{i:l}(ds;da), x(s), update-spec-decl(upd;ds), Valtype(da;k), , False, Unit, update-spec(ds;da), x(s1,s2), , a = b
Lemmasecl-trans-tuple wf, not wf, assert wf, fpf-dom wf, Id wf, id-deq wf, fpf-trivial-subtype-top, ecl-trans-type wf, ecl-trans wf, update-spec-decl wf, update-spec wf, ecl wf, fpf wf, Knd wf, R-compat-Rplus-sq, R-compat-Rall, update-spec-vars wf, R-state-var wf, fpf-join wf, fpf-single wf, fpf-ap wf, fpf-compatible-join2, fpf-compatible-single-iff, fpf-compatible-singles, Id sq, l member wf, fpf-compatible-single, R-state-var-compat3, fpf-compatible-join, fpf-compatible-self, fpf-compatible-single2, Rinit wf, R-compat-symmetry, Rplus wf, Rall wf, Reffect wf, ma-valtype wf, fpf-join-cap-sq, top wf, fpf-cap-single, eqof eq btrue, Rframe wf, R-compat-Rall2, eq id wf, bool wf, iff transitivity, eqtt to assert, assert-eq-id, fpf-empty-compatible-right, Kind-deq wf, bnot wf, eqff to assert, assert of bnot, not functionality wrt iff, fpf-empty wf, list accum wf, subtype rel dep function, fpf-cap wf, subtype rel self, fpf-cap-join-subtype, fpf-join-dom2, or functionality wrt iff, fpf-single-dom, decl-state wf

origin